home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / grphwiz.dxr / 00147_autorange radio button.ls < prev    next >
Encoding:
Text File  |  2000-01-14  |  959 b   |  39 lines
  1. property ancestor, pIsAutoRange, pMIAW
  2. global gGraph
  3.  
  4. on new me, buttonName, castName, theChannel, theStageLoc, isAutoRange, descendant
  5.   if objectp(descendant) then
  6.     ancestor = new(script("one selected radio button"), buttonName, castName, theChannel, theStageLoc, descendant)
  7.   else
  8.     ancestor = new(script("one selected radio button"), buttonName, castName, theChannel, theStageLoc, me)
  9.   end if
  10.   pIsAutoRange = isAutoRange
  11.   return me
  12. end
  13.  
  14. on setMIAW me, miaw
  15.   pMIAW = miaw
  16.   return me
  17. end
  18.  
  19. on getSetting me
  20.   return pIsAutoRange
  21. end
  22.  
  23. on performFunction me
  24.   tell the stage
  25.     playSFX(9)
  26.   end tell
  27.   if pIsAutoRange then
  28.     hideMe(getManualRangeFields(pMIAW))
  29.     setVisible(getManualRangeFields(pMIAW), 0)
  30.   else
  31.     setVisible(getManualRangeFields(pMIAW), 1)
  32.     showMe(getManualRangeFields(pMIAW))
  33.   end if
  34.   setaProp(gGraph, #pIsConsistant, 0)
  35.   setaProp(gGraph, #pIsDirty, 1)
  36.   setaProp(gGraph, #pIsAutoRange, pIsAutoRange)
  37.   return me
  38. end
  39.